home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 82 / 082.d81 / instant menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  47 lines
  1. 10 ifa=0thendv=peek(186):ifdv<8thendv=8
  2. 100 ifa=0thena=1:load"reader c800",dv,1
  3. 110 ifa=1thena=2:load"i-menu $c000",dv,1
  4. 120 fi$="t.instant menu":menu=49152:poke51253,dv
  5. 130 print"[147]":gosub140:goto290
  6. 140 poke53280,0:poke53281,0:iffthenreturn
  7. 150 poke214,10:print"[145]";
  8. 160 fori=1to13:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next:print""
  9. 170 fori=217to242:pokei,peek(i)or128:next
  10. 180 poke214,12:print"[145]"tab(4)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  11. 190 fori=1to7:printtab(4)"[155]                                [151][146][223]":next
  12. 200 printtab(4)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151][146][223]"
  13. 210 print"[151][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]"
  14. 220 poke214,14:print"[145][155]";
  15. 230 fori=1to5:reada$:gosub240:next:goto250
  16. 240 printspc(20-len(a$)/2)""a$:a$="":return
  17. 250 :return
  18. 260 data"[201] [206] [211] [212] [193] [206][160][212] [160][160][205] [197][160][206] [213]  [160][214] 1","by [210]ick [206]ash
  19. 270 [131]"(NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #82","(NULL)ubscriptions 1-800-831-2694"
  20. 280 [131]"lenopyright (len) 1991 (NULL)oftdisk"
  21. 290 a$(1)[178]" 1. (NULL)ead it   "
  22. 300 a$(2)[178]" 2. (NULL)(NULL)(NULL) it    "
  23. 310 a$(3)[178]" 3. (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)  "
  24. 320 a$(4)[178]" 1. (NULL)ample right$tem       "
  25. 330 a$(5)[178]" 2. (NULL)ample right$tem       "
  26. 340 a$(6)[178]" 3. (NULL)ample right$tem       "
  27. 350 a$(7)[178]" 4. (NULL)ample right$tem       "
  28. 360 a$(8)[178]" 5. (NULL)ample right$tem       "
  29. 370 a$(9)[178]" 6. (NULL)(NULL)val(NULL)right$(NULL)(NULL)(NULL)close(NULL)val(NULL)(NULL)     "
  30. 380 a$(10)[178]" 7. (NULL)right$(NULL)chr$(NULL)valclose(NULL)(NULL)atnlenvalstr$close(NULL)val(NULL)(NULL)"
  31. 390 [151]214,24:[153]"on open(NULL)se len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL)open and (NULL)val(NULL)(NULL)(NULL)(NULL)open to select"
  32. 400 [158]49152,3[170]64,15,2,64[170]4,1,3,a$(1),a$(2),a$(3):[161]a$
  33. 410 [145][197](a$)[137]420,510,440
  34. 420 [158]51200,fi$,"right$close(NULL)close(NULL)close(NULL)closeatnclose(NULL)close(NULL) close (NULL) val (NULL) (NULL)close(NULL)":fi$[178]"":[137]400
  35. 430 [153]"load":[128]
  36. 440 [129]i[178]0[164]9:[151]781,i:[158]59903:[130]:[151]781,24:[158]59903
  37. 450 a$[178]"hello connect":[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15
  38. 460 [139]er[179][177]63[167][153]"load":[128]
  39. 470 q$[178][199](34):[151]646,[194](53281):[153]"load"
  40. 480 [153]"load"q$a$q$",8"
  41. 490 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  42. 500 [143] demo
  43. 510 [158]menu,7,4,8,64[170]6,1,7,a$(4),a$(5),a$(6),a$(7),a$(8),a$(9),a$(10)
  44. 520 [161]a$:[145][197](a$)[137]510,510,510,510,510,400,530
  45. 530 [158]menu,6,14,16,14,13,3,a$(4),a$(5),a$(6),a$(7),a$(8),a$(9)
  46. 540 [161]a$:[145][197](a$)[137]530,530,530,530,530,510
  47.